naturals = [1 .. 100]
sumOfSquares = foldr (+) 0 (map (^2) naturals)
squareOfSum = foldr (+) 0 naturals ^ 2

answer = squareOfSum - sumOfSquares